<html><head><title>Text3D.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Text3D
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<b><font color="#3A3966">IncludeFile</font></b> <font color="#924B72">#PB_Compiler_Home</font> + &quot;examples/3d/Screen3DRequester.pb&quot;


<b><font color="#3A3966">If</font></b> <font color="#3A3966">InitEngine3D</font>()
  
<font color="#3A3966">  Add3DArchive</font>(<font color="#924B72">#PB_Compiler_Home</font> + &quot;examples/3d/Data/Textures&quot;, <font color="#924B72">#PB_3DArchive_FileSystem</font>)
<font color="#3A3966">  Add3DArchive</font>(<font color="#924B72">#PB_Compiler_Home</font> + &quot;examples/3d/Data/fonts&quot;, <font color="#924B72">#PB_3DArchive_FileSystem</font>)
<font color="#3A3966">  Parse3DScripts</font>()
  
<font color="#3A3966">  InitSprite</font>()
<font color="#3A3966">  InitKeyboard</font>()
<font color="#3A3966">  InitMouse</font>()
  
  <b><font color="#3A3966">If</font></b> <font color="#3A3966">Screen3DRequester</font>()
    
<font color="#3A3966">    CreateCube</font>(0, 2)
    
<font color="#3A3966">    CreateMaterial</font>(0,<font color="#3A3966"> LoadTexture</font>(0, &quot;Caisse.png&quot;))
    
<font color="#3A3966">    CreateEntity</font>(0,<font color="#3A3966"> MeshID</font>(0),<font color="#3A3966"> MaterialID</font>(0))
    
<font color="#3A3966">    CreateText3D</font>(0, &quot;Hello world&quot;)
<font color="#3A3966">    Text3DColor</font>(0,<font color="#3A3966"> RGBA</font>(255, 0, 0, 255))
<font color="#3A3966">    Text3DAlignment</font>(0, <font color="#924B72">#PB_Text3D_HorizontallyCentered</font>)
<font color="#3A3966">    AttachEntityObject</font>(0, &quot;&quot;,<font color="#3A3966"> Text3DID</font>(0))
<font color="#3A3966">    MoveText3D</font>(0, 0, 2, 2)

<font color="#3A3966">    RotateEntity</font>(0, 0, -70, 0)
    
<font color="#3A3966">    CreateCamera</font>(0, 0, 0, 100, 100)
<font color="#3A3966">    MoveCamera</font>(0, 0, 0, 10, <font color="#924B72">#PB_Absolute</font>)
    
    <b><font color="#3A3966">Repeat</font></b>
<font color="#3A3966">      Screen3DEvents</font>()
      
<font color="#3A3966">      ExamineKeyboard</font>()
      
<font color="#3A3966">      RotateEntity</font>(0, 1, 1, 1, <font color="#924B72">#PB_Relative</font>)
      
<font color="#3A3966">      RenderWorld</font>()
<font color="#3A3966">      Screen3DStats</font>()
<font color="#3A3966">      FlipBuffers</font>()
    <b><font color="#3A3966">Until</font></b> <font color="#3A3966">KeyboardPushed</font>(<font color="#924B72">#PB_Key_Escape</font>) <b><font color="#3A3966">Or</font></b> Quit = 1
  <b><font color="#3A3966">EndIf</font></b>
  
<b><font color="#3A3966">Else</font></b>
<font color="#3A3966">  MessageRequester</font>(&quot;Error&quot;, &quot;The 3D Engine can't be initialized&quot;,0)
<b><font color="#3A3966">EndIf</font></b>

<b><font color="#3A3966">End</font></b>
</font></pre>
</body></html>
